home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00025.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.0 KB  |  31 lines
  1. on exitFrame
  2.   global ppl, advance, foes
  3.   set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  4.   set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  5.   if sprite(getAt(ppl, 1)).flipH = 0 then
  6.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  7.   else
  8.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  9.   end if
  10.   if (advance = 1) and (getAt(foes, 1) < 56) then
  11.     setAt(foes, 1, 65)
  12.     chkhit(getAt(ppl, 2), 56, 65, 2, 1, 73)
  13.   else
  14.     if (advance = 2) or (advance = 3) then
  15.       if getAt(foes, 3) < 116 then
  16.         setAt(foes, 3, 122)
  17.         chkhit(getAt(ppl, 4), 116, 122, 4, 3, 138)
  18.       end if
  19.       if getAt(foes, 2) < 87 then
  20.         setAt(foes, 2, 94)
  21.         chkhit(getAt(ppl, 3), 87, 94, 3, 2, 137)
  22.       end if
  23.     else
  24.       if (advance = 4) and (getAt(foes, 1) < 56) then
  25.         setAt(foes, 1, 65)
  26.         chkhit(getAt(ppl, 2), 56, 65, 2, 1, 73)
  27.       end if
  28.     end if
  29.   end if
  30. end
  31.